← Index
NYTProf Performance Profile   
For /usr/share/koha/opac/cgi-bin/opac/opac-search.pl
  Run on Tue Oct 15 17:10:45 2013
Reported on Tue Oct 15 17:12:56 2013

Filename(eval 1128)[/usr/share/perl/5.10/CGI.pm:869]
StatementsExecuted 8 statements in 22µs
Eval Invoked At/usr/share/perl/5.10/CGI.pm line 869
Sibling evals1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
22227µs372µsCGI::::path_infoCGI::path_info
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1
# spent 372µs (27+345) within CGI::path_info which was called 2 times, avg 186µs/call: # once (21µs+342µs) by CGI::url at line 832 of CGI.pm # once (6µs+2µs) by CGI::url at line 9 of (eval 1127)[CGI.pm:869]
package CGI; sub path_info {
224µs26µs my ($self,$info) = self_or_default(@_);
# spent 6µs making 2 calls to CGI::self_or_default, avg 3µs/call
322µs if (defined($info)) {
4 $info = "/$info" if $info ne '' && substr($info,0,1) ne '/';
5 $self->{'.path_info'} = $info;
6 } elsif (! defined($self->{'.path_info'}) ) {
717µs1192µs my (undef,$path_info) = $self->_name_and_path_from_env;
# spent 192µs making 1 call to CGI::AUTOLOAD
811µs $self->{'.path_info'} = $path_info || '';
9 }
1028µs return $self->{'.path_info'};
11}
12
13;